home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / shared.dir / 01222_Lbutton1.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  547 b   |  20 lines
  1. on mouseDown
  2.   set whichclick to the clickOn
  3.   set lCastName to "LButton"
  4.   puppetTransition(0)
  5.   repeat with i = 2 to 3
  6.     set lCastNameComplete to lCastName & string(i)
  7.     set the castNum of sprite whichclick to the number of cast lCastNameComplete
  8.     updateStage()
  9.   end repeat
  10.   repeat with i = 2 down to 1
  11.     set lCastNameComplete to lCastName & string(i)
  12.     set the castNum of sprite whichclick to the number of cast lCastNameComplete
  13.     updateStage()
  14.   end repeat
  15.   repeat while the stillDown
  16.   end repeat
  17.   sound stop 1
  18.   pass()
  19. end
  20.